home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)td.d64
/
fibich poem.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
6KB
|
238 lines
100 REM FIBICH POEM V2
102 REM TRANSCRIBED FOR C-64 BY R.KEAYS
103 REM SUMMER OF 84
104 REM DRIVER-AFTER BUTTERFIELD
105 PRINT"[147] CONCERT IN PROGRESS!"
108 FORVO=1TO15:POKE54296,VO:NEXTVO
110 L1=54272:L2=54279:L3=54286
120 H1=L1+1:H2=L2+1:H3=L3+1
130 V1=L1+4:V2=L2+4:V3=L3+4
145 P1=L1+3:P2=L2+3:P3=L3+3
147 LP=P1-1:MP=P2-1:NP=P3-1
150 POKEV1+1,25:POKEV1+2,32:REM A=1*16:D=9
160 POKEV2+1,25:POKEV2+2,32:REM S=2*16:R=0
170 POKEV3+1,40:POKEV3+2,90:REM S=5*16:R=10
180 T=TI:F=30
190 POKEV1,64:POKEV2,64:POKEV3,64:REM PULSE WAVEFORM
200 POKEP1,8:POKEP2,8:POKEP3,8:REM HI PULSE
205 POKELP,0:POKEMP,0:POKENP,0:REM LO PULSE
210 READS:IFS=0GOTO290
220 READX1,Y1,X2,Y2,X3,Y3
230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,65
240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,65
250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,65
260 T=T+S/10*F
270 IFT>TIGOTO270
280 GOTO190
290 FORJ=L1 TO 54295:POKE J,0:NEXT J:FORVO=15TO1STEP-1:POKE54296,VO:NEXT:END
8000 REM MUSIC DATA STARTS HERE
8001 DATA60,0,0,0,0,0,0
8002 DATA05,19,63,12,32,9,159
8006 DATA05,18,42,0,0,0,0
8010 DATA05,12,32,0,0,0,0
8014 DATA30,14,107,12,32,0,0
8016 DATA10,0,0,0,0,0,0
8018 DATA05,16,47,0,0,0,0
8022 DATA05,17,37,0,0,0,0
8026 DATA05,19,63,0,0,0,0
8030 DATA05,17,37,12,32,10,60
8034 DATA05,16,47,0,0,0,0
8038 DATA05,14,107,0,0,0,0
8042 DATA05,12,216,8,23,6,108
8046 DATA05,12,32,0,0,0,0
8050 DATA05,8,23,0,0,0,0
8054 DATA20,9,159,8,23,0,0
8058 DATA05,10,205,0,0,0,0
8062 DATA05,11,114,0,0,0,0
8066 DATA05,12,216,0,0,0,0
8070 DATA05,11,114,6,206,0,0
8074 DATA05,10,205,0,0,0,0
8078 DATA05,9,159,0,0,0,0
8082 DATA10,8,147,0,0,0,0
8086 DATA20,9,159,0,0,0,0
8090 DATA20,10,60,0,0,0,0
8094 DATA10,10,205,0,0,0,0
8098 DATA15,10,205,0,0,0,0
8102 DATA05,9,159,7,53,0,0
8106 DATA05,9,159,7,53,0,0
8110 DATA15,12,32,0,0,0,0
8114 DATA05,10,205,7,163,0,0
8118 DATA05,10,205,7,163,0,0
8122 DATA30,16,47,8,23,0,0
8126 DATA05,12,32,9,159,0,0
8130 DATA05,12,32,9,159,0,0
8134 DATA05,12,32,9,159,0,0
8138 DATA05,12,32,9,159,0,0
8142 DATA05,12,32,9,159,0,0
8146 DATA05,10,205,0,0,0,0
8150 DATA05,12,32,0,0,0,0
8154 DATA05,14,107,0,0,0,0
8158 DATA05,12,216,0,0,0,0
8162 DATA05,12,32,0,0,0,0
8166 DATA05,10,205,0,0,0,0
8170 DATA05,12,216,0,0,0,0
8174 DATA25,12,32,9,159,0,0
8178 DATA15,13,156,0,0,0,0
8182 DATA05,10,205,9,159,0,0
8186 DATA05,10,205,9,159,0,0
8190 DATA15,13,156,0,0,0,0
8194 DATA05,12,32,9,159,0,0
8198 DATA05,12,32,9,159,0,0
8214 DATA02,7,163,0,0,0,0
8218 DATA02,10,205,0,0,0,0
8222 DATA02,12,32,0,0,0,0
8226 DATA15,19,63,0,0,0,0
8230 DATA05,12,32,10,205,0,0
8234 DATA05,12,32,10,205,0,0
8238 DATA05,15,70,10,205,0,0
8242 DATA05,15,70,10,205,0,0
8246 DATA05,18,42,15,70,12,32
8250 DATA05,15,70,9,159,0,0
8254 DATA05,16,47,0,0,0,0
8258 DATA05,24,63,12,32,0,0
8262 DATA10,21,154,10,205,0,0
8266 DATA10,13,156,0,0,0,0
8270 DATA05,19,63,9,159,0,0
8274 DATA05,19,63,9,159,0,0
8278 DATA25,18,42,12,216,9,21
8282 DATA05,16,47,12,216,0,0
8286 DATA05,14,107,12,32,0,0
8290 DATA05,12,216,10,205,0,0
8294 DATA02,12,32,0,0,0,0
8298 DATA02,14,107,0,0,0,0
8302 DATA02,19,63,0,0,0,0
8306 DATA10,24,63,0,0,0,0
8310 DATA05,19,63,14,107,12,32
8314 DATA02,12,32,0,0,0,0
8318 DATA02,16,47,0,0,0,0
8322 DATA02,19,63,0,0,0,0
8326 DATA10,24,63,0,0,0,0
8330 DATA05,19,63,16,47,12,32
8334 DATA05,24,63,19,63,0,0
8338 DATA05,21,154,18,42,0,0
8342 DATA05,18,42,15,70,0,0
8346 DATA05,16,47,16,47,0,0
8350 DATA05,21,154,18,42,0,0
8354 DATA05,24,63,19,63,0,0
8358 DATA02,16,47,0,0,0,0
8362 DATA02,21,154,0,0,0,0
8366 DATA02,25,177,0,0,0,0
8370 DATA10,32,94,0,0,0,0
8374 DATA05,25,177,21,154,16,47
8378 DATA02,16,47,0,0,0,0
8382 DATA02,21,154,0,0,0,0
8386 DATA02,25,177,0,0,0,0
8390 DATA10,32,94,0,0,0,0
8394 DATA05,25,177,21,154,16,47
8398 DATA02,16,47,0,0,0,0
8402 DATA02,21,154,0,0,0,0
8406 DATA02,25,177,0,0,0,0
8410 DATA10,32,94,0,0,0,0
8414 DATA05,28,214,25,177,14,107
8418 DATA02,25,177,0,0,0,0
8422 DATA02,32,94,0,0,0,0
8426 DATA02,34,75,0,0,0,0
8430 DATA10,51,97,0,0,0,0
8434 DATA02,25,177,0,0,0,0
8438 DATA02,32,94,0,0,0,0
8442 DATA02,34,75,0,0,0,0
8446 DATA05,51,97,0,0,0,0
8450 DATA02,24,63,0,0,0,0
8454 DATA02,28,214,0,0,0,0
8458 DATA02,36,85,0,0,0,0
8462 DATA05,48,127,0,0,0,0
8470 DATA02,21,154,0,0,0,0
8474 DATA02,25,177,0,0,0,0
8478 DATA02,36,85,0,0,0,0
8482 DATA05,43,52,0,0,0,0
8486 DATA02,19,63,0,0,0,0
8490 DATA02,24,63,0,0,0,0
8494 DATA02,32,94,0,0,0,0
8498 DATA10,38,126,0,0,0,0
8502 DATA02,19,63,0,0,0,0
8506 DATA02,21,154,0,0,0,0
8510 DATA02,25,177,0,0,0,0
8514 DATA02,30,141,0,0,0,0
8518 DATA10,38,126,0,0,0,0
8522 DATA02,19,63,0,0,0,0
8526 DATA02,24,63,0,0,0,0
8530 DATA02,36,85,0,0,0,0
8534 DATA05,38,126,0,0,0,0
8538 DATA05,36,85,18,42,0,0
8542 DATA05,24,63,12,32,0,0
8546 DATA20,28,214,14,107,0,0
8550 DATA05,21,154,0,0,0,0
8554 DATA02,24,63,0,0,0,0
8558 DATA02,28,214,0,0,0,0
8562 DATA05,25,177,0,0,0,0
8566 DATA05,24,63,0,0,0,0
8570 DATA05,21,154,0,0,0,0
8574 DATA05,25,177,0,0,0,0
8578 DATA15,24,63,19,63,12,32
8582 DATA2.5,0,0,0,0,0,0
8586 DATA2.5,12,32,0,0,0,0
8590 DATA2.5,14,107,0,0,0,0
8594 DATA2.5,19,63,0,0,0,0
8598 DATA15,24,63,19,63,12,32
8602 DATA15,24,63,19,63,12,32
8606 DATA05,24,63,19,63,12,32
8610 DATA05,21,154,18,42,10,205
8614 DATA05,18,42,15,70,8,147
8618 DATA05,19,63,16,47,9,159
8622 DATA05,21,154,18,42,10,205
8626 DATA05,24,63,19,63,12,32
8630 DATA15,32,94,25,177,21,154
8634 DATA15,32,94,25,177,21,154
8638 DATA05,32,94,25,177,21,154
8642 DATA05,28,214,25,177,14,107
8646 DATA05,51,97,36,85,28,214
8650 DATA05,51,97,36,85,28,214
8654 DATA05,48,127,36,85,28,214
8658 DATA05,43,52,36,85,25,177
8662 DATA10,38,126,32,94,24,63
8666 DATA15,38,126,30,141,25,177
8670 DATA05,38,126,28,214,24,63
8674 DATA05,36,85,18,42,0,0
8678 DATA05,24,63,12,32,0,0
8682 DATA02,14,107,0,0,0,0
8686 DATA02,19,63,0,0,0,0
8690 DATA02,24,63,0,0,0,0
8694 DATA20,28,214,0,0,0,0
8698 DATA05,21,154,0,0,0,0
8702 DATA02,24,63,0,0,0,0
8706 DATA02,28,214,0,0,0,0
8710 DATA05,25,177,0,0,0,0
8714 DATA05,24,63,0,0,0,0
8718 DATA05,21,154,0,0,0,0
8722 DATA05,25,177,12,216,0,0
8726 DATA10,24,63,19,63,12,32
8730 DATA05,12,32,9,159,0,0
8734 DATA05,10,205,7,53,0,0
8738 DATA05,9,159,7,53,0,0
8742 DATA15,9,159,0,0,0,0
8746 DATA2.5,12,32,0,0,0,0
8750 DATA2.5,10,205,0,0,0,0
8754 DATA2.5,12,32,0,0,0,0
8758 DATA2.5,19,63,0,0,0,0
8762 DATA2.5,16,47,0,0,0,0
8766 DATA15,10,205,0,0,0,0
8770 DATA2.5,19,63,0,0,0,0
8774 DATA2.5,21,154,0,0,0,0
8778 DATA2.5,24,63,0,0,0,0
8782 DATA2.5,25,177,0,0,0,0
8786 DATA2.5,30,141,0,0,0,0
8790 DATA05,38,126,24,63,19,63
8794 DATA05,36,85,18,42,0,0
8798 DATA05,24,63,12,32,0,0
8802 DATA20,28,214,14,107,0,0
8806 DATA05,21,154,0,0,0,0
8810 DATA02,24,63,0,0,0,0
8814 DATA02,28,214,0,0,0,0
8818 DATA05,25,177,0,0,0,0
8822 DATA05,24,63,0,0,0,0
8826 DATA05,21,154,0,0,0,0
8830 DATA05,25,177,0,0,0,0
8834 DATA25,24,63,19,63,12,32
8838 DATA25,38,126,24,63,19,63
8840 DATA0